home *** CD-ROM | disk | FTP | other *** search
/ comtecelectrical.ca / www.comtecelectrical.ca.tar / www.comtecelectrical.ca / infobots / Backup / MSOCache / All Users / 90000409-6000-11D3-8CFE-0150048383C9 / E2561412.CAB / EXCEL.EXE / HTML / 3000
Text File  |  2003-08-13  |  3KB  |  88 lines
  1. <SCRIPT language=VBScript>
  2.  
  3. DIM xlApp
  4. DIM xlWorkBook
  5.  
  6. ON ERROR RESUME NEXT
  7.  
  8. 'Set IE variables and get the URL
  9. SET ieParentWin = external.menuArguments
  10. ieSrcURL = ieParentWin.location.href
  11. fTableSel = FALSE
  12.  
  13. SET ieSrcElem = ieParentWin.event.srcElement
  14. IF ERR = 0 AND UCASE(ieParentWin.document.selection.type) = "NONE" THEN
  15.     tagName = UCASE(ieSrcElem.tagName)
  16.     DO UNTIL tagName = "TABLE" OR tagName = "BODY"
  17.         SET ieSrcElem = ieSrcElem.parentElement
  18.         tagName = UCASE(ieSrcElem.tagName)
  19.     LOOP
  20.  
  21.     IF tagName = "TABLE" THEN
  22.         tagParentName = tagName
  23.         SET ieParent = ieSrcElem
  24.         DO UNTIL tagParentName = "BODY" OR tagParentName = "VIEW"
  25.             SET ieParent = ieParent.parentElement
  26.             tagParentName = UCASE(ieParent.tagName)
  27.         LOOP
  28.     
  29.         IF tagParentName <> "VIEW" THEN
  30.             fTableSel = TRUE
  31.             IF ieSrcElem.ID <> "" THEN
  32.                 ieSrcConnect = ieSrcElem.ID
  33.             ELSE
  34.                 SET ieTables = ieParentWin.document.all.tags("table")
  35.                 ieSrcConnect = 1
  36.                 FOR EACH ieTable IN ieTables
  37.                     IF ieTable.sourceIndex = ieSrcElem.sourceIndex THEN
  38.                         EXIT FOR
  39.                     END IF
  40.                     ieSrcConnect = ieSrcConnect + 1
  41.                 NEXT
  42.             END IF
  43.         END IF
  44.     END IF
  45. END IF
  46.  
  47. SET xlApp = CreateObject("Excel.Application")
  48. ON ERROR GOTO 0
  49. SET xlWorkbook = xlApp.Workbooks.Add
  50. ON ERROR RESUME NEXT
  51. xlApp.Visible = True
  52.  
  53. IF fTableSel THEN
  54.     webQuerySourceHRef = ieSrcElem.getAttribute("o:WebQuerySourceHRef")
  55.     IF webQuerySourceHRef <> "" THEN
  56.         SET xlQueryTable = xlWorkbook.Worksheets(1).QueryTables.Add("URL;" & webQuerySourceHRef, xlWorkbook.WorkSheets(1).Cells(1,1))
  57.         xlQueryTable.EditWebPage = ieSrcURL
  58.     ELSE
  59.         SET xlQueryTable = xlWorkbook.Worksheets(1).QueryTables.Add("URL;" & ieSrcURL, xlWorkbook.WorkSheets(1).Cells(1,1))
  60.         xlQueryTable.EditWebPage = ""
  61.     END IF
  62.     xlQueryTable.FieldNames = True
  63.     xlQueryTable.RowNumbers = False
  64.     xlQueryTable.FillAdjacentFormulas = False
  65.     xlQueryTable.PreserveFormatting = True
  66.     xlQueryTable.RefreshOnFileOpen = False
  67.     xlQueryTable.BackgroundQuery = True
  68.     xlQueryTable.RefreshStyle = 0 'xlOverwriteCells
  69.     xlQueryTable.SavePassword = False
  70.     xlQueryTable.SaveData = True
  71.     xlQueryTable.AdjustColumnWidth = True
  72.     xlQueryTable.RefreshPeriod = 0
  73.     xlQueryTable.WebSelectionType = 3 'xlSpecifiedTables
  74.     xlQueryTable.WebFormatting = 3 'xlWebFormattingNone
  75.     xlQueryTable.WebTables = ieSrcConnect
  76.     xlQueryTable.WebPreFormattedTextToColumns = True
  77.     xlQueryTable.WebConsecutiveDelimitersAsOne = True
  78.     xlQueryTable.WebSingleBlockTextImport = False
  79.     xlQueryTable.WebDisableDateRecognition = False
  80.     xlQueryTable.WebDisableRedirections = False
  81.     xlQueryTable.Refresh
  82. ELSE
  83.     xlApp.Dialogs(667).Show ieSrcURL
  84. END IF
  85.  
  86. </Script>
  87.  
  88.